home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PsL Monthly 1993 December
/
PSL Monthly Shareware CD-ROM (December 1993).iso
/
prgmming
/
dos
/
try_qb
/
ballxor.bas
(
.txt
)
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
NeXTSTEP
RISC OS/Acorn
UTF-8
Wrap
QuickBASIC Tokenized Source
|
1989-12-04
|
2.0 KB
|
30 lines
GetArraySize
WLeft
WRight
WBottom
ArraySize
Array
Pattern
StepSize
StartLoop
Decay
EndLoop
Pause
VLeft
VRight
VBottom
RectHeight
RectWidth
ByteSize
The rectangle is smaller than the one in the previous
program, which means Array is also smaller:
Press any key to end
The first PUT statement places the image on
the screen:
An empty FOR...NEXT loop to delay the program and
reduce image flicker:
fff?p
The second PUT statement erases the image and
restores the background:
GetArraySize